home *** CD-ROM | disk | FTP | other *** search
/ Aminet 50 / Aminet 50 (2002)(GTI - Schatztruhe)[!][Aug 2002].iso / Aminet / text / edit / tecoc-146.lha / exectv.c < prev    next >
C/C++ Source or Header  |  1991-07-05  |  1KB  |  37 lines
  1. /*****************************************************************************
  2.  
  3.     ExeCtV()
  4.  
  5.     This function executes a ^V (control-V or caret-V) command.
  6.  
  7. *****************************************************************************/
  8.  
  9. #include "zport.h"        /* define portability identifiers */
  10. #include "tecoc.h"        /* define general identifiers */
  11. #include "defext.h"        /* define external global variables */
  12. #include "deferr.h"        /* define identifiers for error messages */
  13.  
  14. DEFAULT ExeCtV()        /* execute a ^V (control-V) command */
  15. {
  16.     DBGFEN(1,"ExeCtV",NULL);
  17.  
  18.     if (EStTop == EStBot) {            /* if no numeric argument */
  19.         IniSrM = LOWER;
  20.     } else {
  21.         if (GetNmA() == FAILURE) {    /* get numeric argument */
  22.             DBGFEX(1,DbgFNm,"FAILURE");
  23.             return FAILURE;
  24.         }
  25.         if (NArgmt) {            /* if it wasn't 0^V */
  26.             ErrMsg(ERR_ARG);    /* improper arguments */
  27.             DBGFEX(1,DbgFNm,"FAILURE");
  28.             return FAILURE;
  29.         }
  30.         IniSrM = NONE;
  31.     }
  32.  
  33.     CmdMod = '\0';                /* clear modifiers flags */
  34.     DBGFEX(1,DbgFNm,"SUCCESS");
  35.     return SUCCESS;
  36. }
  37.